home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / ERRMSG.HDB < prev    next >
Text File  |  1994-10-12  |  1KB  |  34 lines
  1. *------------------------------------------------------------------
  2. *-- Make sure that the structure for the call to ErrMsg is complete
  3. *------------------------------------------------------------------
  4. PRIVATE cIntlErr, cIntlOk, cIntlCan, cIntlHel
  5.  
  6. cIntlErr = [Error]
  7. cIntlOk  = [~A~ceptar]
  8. cIntlCan = [Cancelar]
  9. cIntlHel = [A~y~uda]
  10.  
  11. IF TYPE( "dB5___EMsg.Message" ) <> "C"
  12.     DEFINE OBJECT dB5___EMsg ;
  13.         CUSTOM ;
  14.             Message     ""      , ;
  15.             BoxTitle    m->cIntlErr , ;
  16.             OkBtn       .T.     , ;
  17.             OkText      m->cIntlOk  , ;
  18.             OkFocus     .T.     , ;
  19.             CancelBtn   .F.     , ;
  20.             CancelText  m->cIntlCan  , ;
  21.             CancelFoc   .F.     , ;
  22.             HelpBtn     .F.     , ;
  23.             HelpText    m->cIntlHel , ;
  24.             HelpFocus   .F.     , ;
  25.             HelpClick   "", ;
  26.             HelpId      "", ;
  27.             HelpFile    "", ;
  28.             HelpProc    "", ;
  29.             DrawBox     .T.     , ;
  30.             OkChosen    .F.
  31.  
  32. ENDIF
  33.  
  34.